home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / dev / amos / AMOS1097.lzh / AMOSLIST / 000083_amos-request@svcs1.digex.net_Wed Oct 8 21:46:29 1997.msg < prev    next >
Internet Message Format  |  1997-11-02  |  4KB
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  2.     by mail3.access.digex.net (8.8.5/8.8.5) with ESMTP id VAA05029
  3.     for <mcox@access.digex.net>; Wed, 8 Oct 1997 21:46:28 -0400 (EDT)
  4. Received: (from daemon@localhost)
  5.     by svcs1.digex.net (8.8.5/8.8.5) id TAA09517
  6.     for amos-out; Wed, 8 Oct 1997 19:21:10 -0400 (EDT)
  7. Received: from mail2.access.digex.net (mail2.access.digex.net [205.197.247.3])
  8.     by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id TAA09514
  9.     for <amos-list@svcs1.digex.net>; Wed, 8 Oct 1997 19:21:09 -0400 (EDT)
  10. Received: from punt-1.mail.demon.net (punt-1b.mail.demon.net [194.217.242.135])
  11.     by mail2.access.digex.net (8.8.5/8.8.5) with SMTP id TAA24434
  12.     for <amos-list@access.digex.net>; Wed, 8 Oct 1997 19:21:07 -0400 (EDT)
  13. Received: from agasinc.demon.co.uk ([193.237.4.98]) by punt-1.mail.demon.net
  14.            id aa1017103; 9 Oct 97 0:06 BST
  15. From: Andy Gibson <andy@agasinc.demon.co.uk>
  16. To: Cori Skagen <cskagen@ican.net>
  17. CC: Amos List <amos-list@access.digex.net>
  18. Date: Tue, 07 Oct 1997 22:55:54 -0000
  19. Message-ID: <yam7219.2749.4112632@post.demon.co.uk>
  20. In-Reply-To: <yam7219.1445.4178848@mail.ican.net>
  21. X-Mailer: YAM 1.3.4 [020] - Amiga Mailer by Marcel Beck
  22. Organization: AGAS Productions
  23. Subject: Re: Need help finding device names
  24. MIME-Version: 1.0
  25. Content-Type: text/plain
  26. Status: O
  27. X-Status: 
  28.  
  29. On 07-Oct-97, Cori Skagen scribbled:
  30. >Hi everyone,
  31.  
  32. Hello :)
  33.  
  34. >I was wondering if there's a way of finding the particular device
  35. >that a volume belongs to:
  36. >eg. Given "Workbench:" I want to find its particular device such as
  37. > "dh0:"
  38. >Its easy enough to find the volume name given the device by using
  39. >the AMCAF extension, but I need to do it the other way around.
  40. >Any help would be appreciated
  41.  
  42. Well, this does the opposite, but I'm sure you could fiddle about with
  43. it and get the results and best of all, no extensions as suggested...
  44.  
  45. Cut  and save as AMOSFILE.asc and load into Amos using the Merge Ascii
  46. option from the Project menu...
  47.  
  48.  
  49. '
  50. ' *****************************
  51. '  Get Volume Name From Device 
  52. '    Without Any Extensions
  53. '    bY Andy Gibson - AGAS.
  54. '     Written during 1996
  55. ' *****************************
  56. '
  57. '
  58. ' If you have a disk in any drive and you want to kno what its name
  59. ' is (ie. Volume name) simply use the following code...
  60. '
  61. '  You can use any device name such as DF0: DF1: HD0: DH0: etc.
  62. '
  63. ' Hope this helps someone....
  64. '
  65. ' It's good for all sorts of things. I think there are various 
  66. ' extensions that can do this also, but I'm sure there is someone
  67. ' out there who asked for something like this a few days ago ;^) 
  68. '
  69.    PATH$="df1:" : Rem add a filename too if you want :)
  70.    XAMOUNT=Instr(PATH$,":")
  71.    SDISK$=Left$(PATH$,XAMOUNT)
  72.    FILE$=PATH$-SDISK$
  73.    Dir$=SDISK$ : OLD_DIR$=Dir$
  74.    FINAL$=OLD_DIR$+FILE$
  75.    Print FINAL$
  76. '
  77. ' The printed result will be the name of the disk in DF1: in this
  78. ' example. It may be crude, but has never let me down. 
  79. '
  80. ' One example to use this for would be when an app lets the user 
  81. ' enter some data to save. Most peeps would type.... 
  82. ' DF0:File, so now you can save to the correct disk for later
  83. ' accessing of their file from correct location. No more silly 
  84. ' requestors asking for you to PLEASE INSERT DF0: IN ANY DRIVE!!!
  85. '
  86. ' Andy Gibson - AGAS Productions.
  87. '
  88. '
  89.  
  90. -- 
  91.  ___________________________________ ________________________________
  92. |  _     _                          |                                |
  93. | (-)/\//_)\/    AGAS Productions   |    #cONTACT mE fOR mORE iNFO#    |
  94. |   Gibson_/           9T7          |    #oN aREA51 rELEASES aLSO!#    |
  95. |                                   |                                |
  96. |    andy@agasinc.demon.co.uk       |        cOMING sOON'ish         |
  97. |                                   |        *Roswell Gfx Adv*         |
  98. |     -=<(aka SKiDZ/A51)>=-         |              9T7               |
  99. |___________________________________|________________________________|
  100.